home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / mobile / fma-2.0-stable-setup.exe / {app} / source / uGetContact.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2004-06-29  |  2.2 KB  |  88 lines
  1. unit uGetContact;
  2.  
  3. {
  4. *******************************************************************************
  5. * Descriptions: Selecting A Contact
  6. * $Source: /cvsroot/fma/fma/uGetContact.pas,v $
  7. * $Locker:  $
  8. *
  9. * Todo:
  10. *
  11. * Change Log:
  12. * $Log: uGetContact.pas,v $
  13. * Revision 1.1  2004/06/29 11:51:15  z_stoichev
  14. * Added Select One Contact support
  15. *
  16. *
  17. }
  18.  
  19. interface
  20.  
  21. uses
  22.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  23.   Dialogs, uSelectContact, Placemnt, Menus, ImgList, StdCtrls, TntStdCtrls,
  24.   ComCtrls, TntComCtrls;
  25.  
  26. type
  27.   TfrmGetContact = class(TfrmSelContact)
  28.     procedure TntListView1SelectItem(Sender: TObject; Item: TListItem;
  29.       Selected: Boolean);
  30.     procedure OkButtonClick(Sender: TObject);
  31.     procedure FormShow(Sender: TObject);
  32.     procedure TntListView1DblClick(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. var
  40.   frmGetContact: TfrmGetContact;
  41.  
  42. implementation
  43.  
  44. {$R *.dfm}
  45.  
  46. procedure TfrmGetContact.TntListView1SelectItem(Sender: TObject;
  47.   Item: TListItem; Selected: Boolean);
  48. begin
  49.   inherited;
  50.   OkButton.Enabled := AddButton.Enabled;
  51.   OkButton.Default := AddButton.Enabled;
  52. end;
  53.  
  54. procedure TfrmGetContact.OkButtonClick(Sender: TObject);
  55. begin
  56.   inherited;
  57.   { Use selected contact in top list as current selection and exit }
  58.   AddButton.Click;
  59.   ModalResult := mrOk;
  60. end;
  61.  
  62. procedure TfrmGetContact.FormShow(Sender: TObject);
  63. var
  64.   i: integer;
  65. begin
  66.   inherited;
  67.   { Select contact in top list }
  68.   if SelectedList.Items.Count <> 0 then begin
  69.     for i := 0 to TntListView1.Items.Count-1 do
  70.       { Compare both name and number }
  71.       if (WideCompareText(TntListView1.Items[i].Caption,SelectedList.Items[0].Caption) = 0) and
  72.         (WideCompareText(TntListView1.Items[i].SubItems[0],SelectedList.Items[0].SubItems[0]) = 0) then begin
  73.         TntListView1.Items[i].Selected := True;
  74.         TntListView1.Items[i].MakeVisible(False);
  75.         break;
  76.       end;
  77.     { clear current selection in order to allow selecting of new one }
  78.     SelectedList.Items.Clear;
  79.   end;
  80. end;
  81.  
  82. procedure TfrmGetContact.TntListView1DblClick(Sender: TObject);
  83. begin
  84.   if OkButton.Enabled then OkButton.Click;
  85. end;
  86.  
  87. end.
  88.